home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagd_f.zip
/
DRIVES.SWG
/
0007_DRIVES2.PAS.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-05-28
|
351b
|
20 lines
Program DriveID;
Uses
Dos;
Const
First : Boolean = True;
Var
Count : Integer;
begin
Write('You have the following Drives: ');
For Count := 3 to 26 do
if DiskSize(Count) > 0 then
begin
if not First then
Write(', ');
First := False;
Write(UpCase(Chr(ord('a') - 1 + Count)),':')
end;
WriteLn;
end.